;input variables required; [s] [zs] [k]
;outputs; [recess]
;
{AddTable:'{SysPath:Toolbox}\ASME (Inch)\_Common\ASME B18.6.3_Type III.csv'}
;import the square shape
_-Import "{SysPath:Toolbox}\ASME (Inch)\_Common\ASME B18.6.3_Type III.3dm" _Enter
;scale the socket
_Scale 0,0,0 [A]
;place the socket
{Set:[A]={ToDocUnits:[A]}}
{Set:[tip]={Math:([A]/2)*tan(30d)}} ; penetration gage is the square only (don't include the tip) ASME B18.6.3 Page 92
_Move 0,0,0 0,0,[zs]-[tip]
{Set:[recess]={SelectedObjs}}
_SelNone